100 REM PYTHAGOREAN TRIPLETS BY RAI -86
110 PRINT"[147]   U   V     U^2-V^2     2UV   U^2+V^2"
120 PRINT"  ====================================="
130 N=10: REM NUMBER OF SOLUTIONS
140 DIM A(N-1),B(N-1),C(N-1)
150 QUIT=N: J=0: U=2: V=1
160 U2=U*U: V2=V*V
170 A(J)=U2-V2: B(J)=2*U*V: C(J)=U2+V2
180 PRINT TAB(2);U;TAB(6);V;TAB(15);A(J);TAB(25);B(J);TAB(34);C(J)
190 J=J+1: IF J=QUIT THEN END
200 IF U-V = 1 THEN GOTO 220
210 V=V+2: GOTO 160
220 U=U+1: V=1
230 IF (U AND 1)=1 THEN V=2
240 GOTO 160